home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 60.zip / BS1 part 60 / Kick Pascal v2.10 d1.adf / INCLUDE / exec / resident.h < prev    next >
Text File  |  1990-11-01  |  650b  |  31 lines
  1. {$if not def EXEC_RESIDENT_H}
  2. CONST EXEC_RESIDENT_H=0;
  3. {$if not def EXEC_NODES_H;incl"exec/nodes.h";endif}
  4. TYPE
  5. p_Resident=^Resident;
  6. Resident=Record
  7.  rt_MatchWord:Word;
  8.  rt_MatchTag:p_Resident;
  9.  rt_EndSkip:Ptr;
  10.  rt_Flags,rt_Version,rt_Type:Byte;
  11.  rt_Pri:Short;
  12.  rt_Name,rt_IdString:Str;
  13.  rt_Init:Ptr
  14. End;
  15. CONST
  16. RTC_MATCHWORD=$4AFC;
  17. RTF_AUTOINIT=$80;
  18. RTF_COLDSTART=$1;
  19. RTM_WHEN=$3;
  20. RTW_NEVER=0;
  21. RTW_COLDSTART=1;
  22. {$endif}
  23. {$if not def EXEC_RESIDENT_LIB}
  24. Const EXEC_RESIDENT_LIB=0;
  25. Library SysBase:
  26.  -72:Procedure InitCode(d0,d1:Long);
  27.  -96:Function FindResident(a1:Str):p_Resident;
  28. -102:Function InitResident(a1:p_Resident; d1:Ptr):Ptr;
  29. End;
  30. {$endif}
  31.